home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / tvsongs.arc / TVSONGS.BAS
BASIC Source File  |  1988-09-02  |  5KB  |  122 lines
  1. 10 'MODIFIED BY SHANE ONEILL ON 12/31/83
  2. 100 '
  3. 105 SCREEN 0,0,0:COLOR 2,0,0:WIDTH 80:KEY OFF:CLS
  4. 120 PRINT "Congratulations!  You are about to run the silliest program ever
  5. 130 PRINT "written for this computer.
  6. 140 PRINT:PRINT "Tap any key to continue...";
  7. 150 Z$=INKEY$:IF Z$="" THEN 150
  8. 1000 '
  9. 1005 CLS
  10. 1010 PRINT:PRINT "-Menu-"
  11. 1020 PRINT:PRINT " 1 - 'Leave It To Beaver!'"
  12. 1030 PRINT:PRINT " 2 - 'The Tonight Show'"
  13. 1040 PRINT:PRINT " 3 - 'Beverly Hillbillies'"
  14. 1050 PRINT:PRINT " 4 - 'The Flintstones'
  15. 1060 PRINT:PRINT " 5 - 'The Aadams Family'"
  16. 1070 PRINT:PRINT " 6 - The Music Used While Contestants Enter 'Final Jeapordy!'
  17. 1080 PRINT:PRINT " E - Please, sir, I've had quite enough.
  18. 2010 LOCATE 19,1:PRINT "Deposit 25 cents and enter one selection: ";
  19. 2020 A$=INKEY$: IF A$="" THEN 2020
  20. 2030 IF A$="E" OR A$="e" THEN 32700
  21. 2041 IF A$="1" THEN 9000
  22. 2042 IF A$="2" THEN 9100
  23. 2043 IF A$="3" THEN 9200
  24. 2044 IF A$="4" THEN 9300
  25. 2045 IF A$="5" THEN 9500
  26. 2046 IF A$="6" THEN 9600
  27. 2090 LOCATE 21,1:PRINT "That's not on the playlist.  Try again."
  28. 2095 GOTO 2010
  29. 9000 '
  30. 9001 '  "Leave It To Beaver!"
  31. 9002 '
  32. 9005 CLS:LOCATE 13,15:PRINT " 'Gee Wally,   GET THE HECK OFF MY BED!!!!!!!!'"
  33. 9010 PLAY "MS T190"
  34. 9015 PLAY "O2 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
  35. 9020 PLAY "L8 C<B>CF L4 D L8 <B- L4 G.. P16"
  36. 9025 PLAY "L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
  37. 9030 PLAY "L8 C<B>CFD<GE L4 F.. P8"
  38. 9035 PLAY "O3 L4 A L8 A L4 G. L8 FGF L4 E- L8 EDE-EFGG+ L4 A.. P8"
  39. 9040 PLAY "O1 L4 G L8 G L4 F. L8 EFE L4 D- L8 DDEFG>G<G >C<B-AG. P16"
  40. 9045 PLAY "O2 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
  41. 9050 PLAY "L8 C<B>CF L4 D L8 <B- L4 G.. P16"
  42. 9055 PLAY "O3 L8 C L4 F L8 A >C<AF L4 G L8 B- L4 >D"
  43. 9060 PLAY "L8 C<B>CFD<GE L4 F. L8 >F"
  44. 9099 GOTO 1000
  45. 9100 '
  46. 9101 '  "Johnny's Theme"
  47. 9102 '
  48. 9105 CLS:LOCATE 13,25:PRINT " 'Wrong again, 8088-breath!' "
  49. 9110 PLAY "O3 MN T170"
  50. 9115 PLAY "L4 A L8 G P16 F P16 L4 E P32 D.. P16.. L8 D.F P16 AG... P4
  51. 9120 PLAY "L4 A L8 G P16 F P16 L16 E.DE. L4 D.. P16.. L8 D.F P16 AG... P4
  52. 9125 PLAY "L16 GA>C L8 <G P16 F P16 L16 E.DE. L4 D. P16.. L8 D.F P16 AG... P4
  53. 9130 PLAY "GF P2 GF P2 L16 G. P16 G- L4 F P4 L8 MS F.E.C.E P32 AGF.. P32
  54. 9135 PLAY "MN L8 >D<A P2 >D<G P2
  55. 9140 PLAY "L4 A L8 G P16 F P16 L4 E P32 D. P16.
  56. 9145 PLAY "O1 L8 F P16 L16 C.<B.>C. L8 D-.C. P4 L4 O3 EA
  57. 9199 GOTO 1000
  58. 9200 '
  59. 9201 ' "Beverly Hillbillies"
  60. 9202 '
  61. 9205 CLS:LOCATE 13,15:PRINT " 'Hills, that is... Swimmin' Pools... Movie Stars.'"
  62. 9210 PLAY "O2 MS T190"
  63. 9215 PLAY "L8 CCFCFGAAFF L4 G P32 G P32 C. P16"
  64. 9220 PLAY "L8 C L4 E L8 EF L4 G L8 FEFGFD L4 C. P16"
  65. 9225 PLAY "L8 C L4 FFA L8 GFB-AB->C L4 D. P16"
  66. 9230 PLAY "L8 D L4 C L8 CC L4 C L8 CC<CD L4 EF..."
  67. 9299 GOTO 1000
  68. 9300 '
  69. 9301 ' "The Flintstones"
  70. 9302 '
  71. 9305 CLS:LOCATE 13,31:PRINT "'Yabba Dabba Doo!'"
  72. 9315 PLAY "L8 MS O3 T170"
  73. 9320 PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CDE P8 <D.G> P32."
  74. 9325 PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CDC... P4"
  75. 9330 PLAY "L4 BE P8. L8 >C.<BBAABA.. P4 L4 AD P8. L8 B.AAGGAG L16 >G.G..G.G.<"
  76. 9335 PLAY "L8 G.. P64 C P4 >C. P32 <AG.. P64 C P4 G. P64 FEEFG L4 CD P4 "
  77. 9340 PLAY "L8 <EFG L4 CD P4 L8 >EFG L4 >CDC..."
  78. 9345 PLAY "L4 <G. L8 EDC P8 L4 >>C. L8 C<BA P4 L4 <<G P4 C P4 >G P4 F P4.
  79. 9350 PLAY "L4 >EFG L2 >CDC.."
  80. 9399 GOTO 1000
  81. 9500 '
  82. 9501 ' "The Adaams Family"
  83. 9502 '
  84. 9505 CLS:LOCATE 13,17:PRINT "'Morticia, what are we having for dinner?"
  85. 9507 LOCATE 14,17:PRINT"'Fried neighbor'"
  86. 9525 GOSUB 9545
  87. 9530 GOSUB 9565
  88. 9535 GOSUB 9545
  89. 9540 GOSUB 9565:GOTO 9599
  90. 9545 PLAY "O3 T220 L8 CDEF P4 O0 L4 F P8 F P8"
  91. 9550 PLAY "O3 L8 DEF#G P4 O1 L4 G P8 G P8"
  92. 9555 PLAY "O3 L8 DEF#G P4 DEF#G P4 CDEF P4 O1 L4 F P8 F P8"
  93. 9560 RETURN
  94. 9565 PLAY "P4 T187"
  95. 9570 PLAY "O3 L8 CF.AF.D O2 B-. O3 G P4"
  96. 9575 PLAY "FE.GE.C O2 A. O3 F P4"
  97. 9580 PLAY "CF.AF.D O2 B-. O3 G P4"
  98. 9585 IF Z=1 THEN PLAY "T100"
  99. 9590 PLAY "F L64EF L8 E.CD.EF P4"
  100. 9595 RETURN
  101. 9599 GOTO 1000
  102. 9600 '
  103. 9601 ' The "Final Jepoardy Theme"
  104. 9602 '
  105. 9605 CLS:LOCATE 13,15:PRINT "'Please keep your answer in the form of a question.'"
  106. 9625 PLAY "T150 O3 L4"
  107. 9630 PLAY "DGD <G >DGD P4"
  108. 9635 PLAY "DGDG MS B P8 MN L8 AGF#EE- L4"
  109. 9640 PLAY "DGD <G >DGD P4"
  110. 9645 PLAY "MS G P8 L8 E L4 DC MN <BA L4 G"
  111. 9650 PLAY "P4"
  112. 9655 PLAY "O3 L4"
  113. 9660 PLAY "EAE <A >EAE P4"
  114. 9665 PLAY "EAEA MS >C# P8 MN L8 <BAG#F#F L4"
  115. 9670 PLAY "EAE <A >EAE P4"
  116. 9675 PLAY "MS A P8 L8 F# L4 ED MN L2 MS C#<B L4 MN A"
  117. 9680 PLAY "O1 L4 AA"
  118. 9699 GOTO 1000
  119. 32700 '
  120. 32767 CLS:KEY ON:PLAY "O3 L8 DEF#G P4 DEF#G P4 CDEF P4 O1 L4 F P8 F P8
  121. 32800 SYSTEM
  122.